MacWorld 1999 July

home *** CD-ROM | disk | FTP | other *** search
/ MacWorld 1999 July / Macworld (1999-07).dmg / Shareware World / Graphics / AutoPlotVW Package / AP Plug-ins / AP_Number 4 Cir Strips ABC.vsm < prev next >
Unknown | 1999-01-27 | 8.9 KB | [MCmp/CDP3]
open in:
MacOS 8.1 |
Win98 |
DOS
view JSON data |
view as text

This file was not able to be converted.
This format is not currently supported by dexvert.
Confidence	Program	Detection	Match Type	Support
`100%`	file	data	default
`100%`	siegfried	fmt/1142 VectorWorks Plugin or Script	default
id metadata
key	value
macFileType	`[MCmp]`
macFileCreator	`[CDP3]`
hex view
+--------+-------------------------+-------------------------+--------+--------+
|00000000| 4d 43 56 53 00 4d 1a 41 | 50 5f 4e 75 6d 62 65 72 |MCVS.M.A|P_Number|
|00000010| 20 34 20 43 69 72 20 53 | 74 72 69 70 73 20 41 42 | 4 Cir S|trips AB|
|00000020| 43 dd 51 b8 00 00 00 0c | 00 03 00 00 00 cb 4e 20 |C.Q.....|......N |
|00000030| 02 cd 0a b8 02 e0 23 50 | 00 00 00 00 02 cc 92 88 |......#P|........|
|00000040| 01 65 02 e0 31 20 08 41 | 75 74 6f 50 6c 6f 74 6e |.e..1 .A|utoPlotn|
|00000050| 65 6f 75 73 02 e2 d3 a4 | 00 00 00 14 02 cb 4e 20 |eous....|......N |
|00000060| 48 65 6c 70 00 00 00 00 | 02 e2 d4 24 00 00 00 8c |Help....|...$....|
|00000070| 02 e2 d4 22 02 cd e1 dc | 01 00 00 00 00 00 02 dd |..."....|........|
|00000080| 52 84 00 00 00 04 00 01 | 00 00 08 b2 00 00 1a cb |R.......|........|
|00000090| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000000a0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000000b0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000000c0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000000d0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000000e0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000000f0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000100| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000110| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000120| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000130| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000140| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000150| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000160| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000170| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000180| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000190| 08 81 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000001a0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000001b0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000001c0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000001d0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000001e0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000001f0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000200| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000210| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000220| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000230| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000240| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000250| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000260| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000270| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000280| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000290| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000002a0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000002b0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000002c0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000002d0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000002e0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000002f0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000300| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000310| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000320| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000330| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000340| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000350| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000360| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000370| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000380| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000390| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000003a0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000003b0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000003c0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000003d0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000003e0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000003f0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000400| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000410| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000420| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000430| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000440| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000450| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000460| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000470| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000480| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000490| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000004a0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000004b0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000004c0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000004d0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000004e0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000004f0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000500| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000510| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000520| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000530| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000540| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000550| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000560| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000570| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000580| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000590| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000005a0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000005b0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000005c0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000005d0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000005e0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000005f0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000600| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000610| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000620| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000630| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000640| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000650| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000660| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000670| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000680| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000690| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000006a0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000006b0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000006c0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000006d0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000006e0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000006f0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000700| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000710| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000720| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000730| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000740| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000750| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000760| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000770| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000780| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000790| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000007a0| 00 00 00 00 00 00 00 02 | 00 00 00 00 00 00 02 cc |........|........|
|000007b0| 00 00 02 e2 d4 24 00 00 | 00 8c 02 e2 d4 22 02 cd |.....$..|....."..|
|000007c0| e1 dc 01 00 00 00 00 00 | 02 dd 52 84 00 00 00 04 |........|..R.....|
|000007d0| 00 00 00 02 00 00 00 00 | 00 00 00 0d 02 e2 d4 24 |........|.......$|
|000007e0| 02 e2 d4 30 02 e2 d4 44 | 00 01 00 0c 00 10 00 14 |...0...D|........|
|000007f0| 00 00 00 00 01 c9 00 14 | 01 00 00 00 01 00 04 a2 |........|........|
|00000800| 00 05 00 00 73 31 02 e0 | c6 10 00 19 00 00 00 00 |....s1..|........|
|00000810| 00 00 0c 43 02 cd 02 dd | 52 7c 00 00 00 0c 00 03 |...C....|R|......|
|00000820| 00 00 00 88 01 70 02 cd | 0a b8 02 e0 22 a8 00 00 |.....p..|...."...|
|00000830| 00 00 02 cc 92 88 01 e2 | 02 e0 31 44 00 00 00 00 |........|..1D....|
|00000840| 4e 20 00 00 00 9c 02 e2 | d4 be 02 cd e1 dc 01 00 |N ......|........|
|00000850| 00 0a 00 00 02 dd 52 94 | 00 00 00 04 00 00 00 02 |......R.|........|
|00000860| 00 00 00 00 00 00 00 00 | 02 e2 d4 c0 02 e2 d4 cc |........|........|
|00000870| 05 b3 77 b8 00 6b 00 92 | 00 12 00 90 00 00 00 00 |..w..k..|........|
|00000880| 01 20 00 14 01 00 00 00 | 01 00 00 00 00 00 00 00 |. ......|........|
|00000890| 00 0c 02 e0 c6 10 00 18 | d4 9c 01 00 00 0a 00 03 |........|........|
|000008a0| 02 dd 52 64 00 00 00 06 | 00 00 00 02 00 00 00 00 |..Rd....|........|
|000008b0| 00 00 7b 4d 61 63 72 6f | 73 20 44 65 76 65 6c 6f |..{Macro|s Develo|
|000008c0| 70 65 64 20 62 79 20 53 | 61 6d 20 4a 6f 6e 65 73 |ped by S|am Jones|
|000008d0| 7d 0d 7b a9 20 43 6f 70 | 79 72 69 67 68 74 20 4a |}.{. Cop|yright J|
|000008e0| 75 6e 65 20 31 39 39 33 | 7d 0d 7b 69 6e 20 63 6f |une 1993|}.{in co|
|000008f0| 6e 73 75 6c 74 61 74 69 | 6f 6e 20 77 69 74 68 20 |nsultati|on with |
|00000900| 53 74 61 6e 20 50 72 65 | 73 73 6e 65 72 7d 0d 7b |Stan Pre|ssner}.{|
|00000910| 53 65 65 20 43 72 65 64 | 69 74 73 7d 0d 0d 7b 54 |See Cred|its}..{T|
|00000920| 68 69 73 20 50 52 4f 43 | 45 44 55 52 45 20 77 69 |his PROC|EDURE wi|
|00000930| 6c 6c 20 6e 75 6d 62 65 | 72 20 74 68 65 20 73 65 |ll numbe|r the se|
|00000940| 6c 65 63 74 65 64 20 75 | 6e 69 74 73 20 66 72 6f |lected u|nits fro|
|00000950| 6d 20 73 74 61 67 65 20 | 6c 65 66 74 20 69 6e 20 |m stage |left in |
|00000960| 67 72 6f 75 70 73 2c 20 | 69 2e 65 2e 20 31 2c 20 |groups, |i.e. 1, |
|00000970| 32 2c 20 33 2e 7d 0d 7b | 53 74 72 69 70 6c 69 67 |2, 3.}.{|Striplig|
|00000980| 68 74 20 61 6e 64 20 43 | 79 63 20 75 6e 69 74 73 |ht and C|yc units|
|00000990| 20 77 69 6c 6c 20 62 65 | 20 61 73 73 75 6d 65 64 | will be| assumed|
|000009a0| 20 74 6f 20 68 61 76 65 | 20 34 20 63 69 72 63 75 | to have| 4 circu|
|000009b0| 69 74 73 20 65 61 63 68 | 20 61 6e 64 20 77 69 6c |its each| and wil|
|000009c0| 20 62 65 20 6c 61 62 65 | 6c 65 64 20 41 31 2c 20 | be labe|led A1, |
|000009d0| 41 32 2c 20 41 33 2c 20 | 41 34 2c 20 42 31 2c 20 |A2, A3, |A4, B1, |
|000009e0| 42 32 2c 20 65 74 63 2e | 7d 0d 0d 7b 49 4d 50 4f |B2, etc.|}..{IMPO|
|000009f0| 52 54 41 4e 54 2e 2e 2e | 2e 41 54 20 4c 45 41 53 |RTANT...|.AT LEAS|
|00000a00| 54 20 4f 4e 45 20 6f 66 | 20 74 68 65 20 73 65 6c |T ONE of| the sel|
|00000a10| 65 63 74 65 64 20 75 6e | 69 74 73 20 4d 55 53 54 |ected un|its MUST|
|00000a20| 20 42 45 20 49 4e 20 54 | 48 45 20 41 43 54 49 56 | BE IN T|HE ACTIV|
|00000a30| 45 20 4c 41 59 45 52 7d | 0d 0d 50 52 4f 43 45 44 |E LAYER}|..PROCED|
|00000a40| 55 52 45 20 4e 75 6d 62 | 65 72 34 43 69 72 53 74 |URE Numb|er4CirSt|
|00000a50| 72 69 70 73 3b 0d 09 56 | 41 52 0d 09 09 4f 62 6a |rips;..V|AR...Obj|
|00000a60| 48 61 6e 64 6c 65 3a 48 | 61 6e 64 6c 65 3b 0d 09 |Handle:H|andle;..|
|00000a70| 09 4c 61 79 65 72 48 61 | 6e 64 6c 65 3a 48 61 6e |.LayerHa|ndle:Han|
|00000a80| 64 6c 65 3b 0d 09 09 52 | 65 63 48 61 6e 64 6c 65 |dle;...R|ecHandle|
|00000a90| 3a 48 61 6e 64 6c 65 3b | 0d 09 09 48 61 6e 64 6c |:Handle;|...Handl|
|00000aa0| 65 41 72 72 61 79 3a 61 | 72 72 61 79 5b 31 2e 2e |eArray:a|rray[1..|
|00000ab0| 31 30 30 5d 20 6f 66 20 | 48 61 6e 64 6c 65 3b 0d |100] of |Handle;.|
|00000ac0| 09 09 58 41 72 72 61 79 | 3a 61 72 72 61 79 5b 31 |..XArray|:array[1|
|00000ad0| 2e 2e 31 30 30 5d 20 6f | 66 20 52 45 41 4c 3b 0d |..100] o|f REAL;.|
|00000ae0| 09 09 4e 75 6d 62 65 72 | 4f 66 4c 69 67 68 74 73 |..Number|OfLights|
|00000af0| 3a 69 6e 74 65 67 65 72 | 3b 0d 09 09 55 6e 69 74 |:integer|;...Unit|
|00000b00| 4e 75 6d 62 65 72 3a 69 | 6e 74 65 67 65 72 3b 0d |Number:i|nteger;.|
|00000b10| 09 09 4f 6b 3a 62 6f 6f | 6c 65 61 6e 3b 0d 09 09 |..Ok:boo|lean;...|
|00000b20| 50 6f 73 69 74 69 6f 6e | 53 74 72 3a 73 74 72 69 |Position|Str:stri|
|00000b30| 6e 67 3b 0d 09 09 50 6f | 73 69 74 69 6f 6e 4d 61 |ng;...Po|sitionMa|
|00000b40| 74 63 68 3a 73 74 72 69 | 6e 67 3b 0d 09 09 58 31 |tch:stri|ng;...X1|
|00000b50| 2c 59 31 2c 58 32 2c 59 | 32 3a 52 45 41 4c 3b 0d |,Y1,X2,Y|2:REAL;.|
|00000b60| 0d 7b 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |.{------|--------|
|00000b70| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00000b80| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00000b90| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 7d 0d 0d 09 50 |--------|---}...P|
|00000ba0| 52 4f 43 45 44 55 52 45 | 20 47 65 74 4f 62 6a 65 |ROCEDURE| GetObje|
|00000bb0| 63 74 50 6f 73 69 74 69 | 6f 6e 28 56 41 52 20 74 |ctPositi|on(VAR t|
|00000bc0| 68 65 4f 62 6a 65 63 74 | 3a 48 61 6e 64 6c 65 29 |heObject|:Handle)|
|00000bd0| 3b 0d 09 09 56 41 52 0d | 09 09 09 67 72 70 4f 62 |;...VAR.|...grpOb|
|00000be0| 6a 65 63 74 3a 48 61 6e | 64 6c 65 3b 0d 0d 09 42 |ject:Han|dle;...B|
|00000bf0| 45 47 49 4e 0d 09 09 49 | 46 20 47 65 74 54 79 70 |EGIN...I|F GetTyp|
|00000c00| 65 28 74 68 65 4f 62 6a | 65 63 74 29 20 3d 20 31 |e(theObj|ect) = 1|
|00000c10| 31 20 54 48 45 4e 20 42 | 45 47 49 4e 0d 09 09 09 |1 THEN B|EGIN....|
|00000c20| 67 72 70 4f 62 6a 65 63 | 74 20 3a 3d 20 46 49 6e |grpObjec|t := FIn|
|00000c30| 47 72 6f 75 70 28 74 68 | 65 4f 62 6a 65 63 74 29 |Group(th|eObject)|
|00000c40| 3b 0d 09 09 09 57 48 49 | 4c 45 20 28 28 67 72 70 |;....WHI|LE ((grp|
|00000c50| 4f 62 6a 65 63 74 20 3c | 3e 20 4e 49 4c 29 20 41 |Object <|> NIL) A|
|00000c60| 4e 44 20 28 47 65 74 54 | 79 70 65 28 67 72 70 4f |ND (GetT|ype(grpO|
|00000c70| 62 6a 65 63 74 29 20 3c | 3e 20 31 35 29 29 20 44 |bject) <|> 15)) D|
|00000c80| 4f 09 0d 09 09 09 09 67 | 72 70 4f 62 6a 65 63 74 |O......g|rpObject|
|00000c90| 20 3a 3d 20 4e 65 78 74 | 4f 62 6a 28 67 72 70 4f | := Next|Obj(grpO|
|00000ca0| 62 6a 65 63 74 29 3b 0d | 09 09 45 4e 44 3b 20 7b |bject);.|..END; {|
|00000cb0| 49 46 20 47 65 74 54 79 | 70 65 28 74 68 65 4f 62 |IF GetTy|pe(theOb|
|00000cc0| 6a 65 63 74 29 20 3d 20 | 31 31 7d 0d 09 09 49 46 |ject) = |11}...IF|
|00000cd0| 20 67 72 70 4f 62 6a 65 | 63 74 20 3c 3e 20 4e 49 | grpObje|ct <> NI|
|00000ce0| 4c 20 54 48 45 4e 0d 09 | 09 09 74 68 65 4f 62 6a |L THEN..|..theObj|
|00000cf0| 65 63 74 20 3a 3d 20 67 | 72 70 4f 62 6a 65 63 74 |ect := g|rpObject|
|00000d00| 3b 0d 09 09 50 6f 73 69 | 74 69 6f 6e 53 74 72 3a |;...Posi|tionStr:|
|00000d10| 3d 45 76 61 6c 53 74 72 | 28 74 68 65 4f 62 6a 65 |=EvalStr|(theObje|
|00000d20| 63 74 2c 28 27 4c 69 67 | 68 74 73 27 2e 27 50 6f |ct,('Lig|hts'.'Po|
|00000d30| 73 69 74 69 6f 6e 27 29 | 29 3b 0d 09 09 4f 6b 3a |sition')|);...Ok:|
|00000d40| 3d 59 4e 44 69 61 6c 6f | 67 28 43 6f 6e 63 61 74 |=YNDialo|g(Concat|
|00000d50| 28 27 50 6f 73 69 74 69 | 6f 6e 20 69 73 20 27 2c |('Positi|on is ',|
|00000d60| 50 6f 73 69 74 69 6f 6e | 53 74 72 29 29 3b 0d 09 |Position|Str));..|
|00000d70| 09 49 46 20 28 6e 6f 74 | 20 6f 6b 29 20 54 48 45 |.IF (not| ok) THE|
|00000d80| 4e 20 0d 09 09 09 74 68 | 65 4f 62 6a 65 63 74 3a |N ....th|eObject:|
|00000d90| 3d 4e 49 4c 0d 09 09 45 | 4c 53 45 0d 09 09 09 55 |=NIL...E|LSE....U|
|00000da0| 6e 69 74 4e 75 6d 62 65 | 72 3a 3d 49 6e 74 44 69 |nitNumbe|r:=IntDi|
|00000db0| 61 6c 6f 67 28 27 53 74 | 61 72 74 20 61 74 20 77 |alog('St|art at w|
|00000dc0| 68 61 74 20 6e 75 6d 62 | 65 72 27 2c 20 27 31 27 |hat numb|er', '1'|
|00000dd0| 29 3b 0d 09 45 4e 44 3b | 20 7b 50 52 4f 43 45 44 |);..END;| {PROCED|
|00000de0| 55 52 45 20 47 65 74 4f | 62 6a 65 63 74 50 6f 73 |URE GetO|bjectPos|
|00000df0| 69 74 69 6f 6e 7d 0d 09 | 0d 7b 2d 2d 2d 2d 2d 2d |ition}..|.{------|
|00000e00| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00000e10| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00000e20| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00000e30| 2d 2d 2d 7d 0d 0d 09 50 | 52 4f 43 45 44 55 52 45 |---}...P|ROCEDURE|
|00000e40| 20 4d 61 6b 65 41 72 72 | 61 79 45 6c 65 6d 65 6e | MakeArr|ayElemen|
|00000e50| 74 28 74 68 65 53 79 6d | 4f 62 6a 65 63 74 3a 48 |t(theSym|Object:H|
|00000e60| 61 6e 64 6c 65 29 3b 0d | 09 0d 09 56 41 52 0d 09 |andle);.|...VAR..|
|00000e70| 09 78 2c 79 20 3a 20 52 | 45 41 4c 3b 0d 09 0d 09 |.x,y : R|EAL;....|
|00000e80| 42 45 47 49 4e 0d 09 09 | 47 65 74 53 79 6d 4c 6f |BEGIN...|GetSymLo|
|00000e90| 63 28 74 68 65 53 79 6d | 4f 62 6a 65 63 74 2c 78 |c(theSym|Object,x|
|00000ea0| 2c 79 29 3b 0d 09 09 4e | 75 6d 62 65 72 4f 66 4c |,y);...N|umberOfL|
|00000eb0| 69 67 68 74 73 20 3a 3d | 20 4e 75 6d 62 65 72 4f |ights :=| NumberO|
|00000ec0| 66 4c 69 67 68 74 73 20 | 2b 20 31 3b 0d 09 09 48 |fLights |+ 1;...H|
|00000ed0| 61 6e 64 6c 65 41 72 72 | 61 79 5b 4e 75 6d 62 65 |andleArr|ay[Numbe|
|00000ee0| 72 4f 66 4c 69 67 68 74 | 73 5d 20 3a 3d 20 74 68 |rOfLight|s] := th|
|00000ef0| 65 53 79 6d 4f 62 6a 65 | 63 74 3b 0d 09 09 58 41 |eSymObje|ct;...XA|
|00000f00| 72 72 61 79 5b 4e 75 6d | 62 65 72 4f 66 4c 69 67 |rray[Num|berOfLig|
|00000f10| 68 74 73 5d 20 3a 3d 20 | 58 3b 0d 09 45 4e 44 3b |hts] := |X;..END;|
|00000f20| 20 7b 50 52 4f 43 45 44 | 55 52 45 20 4d 61 6b 65 | {PROCED|URE Make|
|00000f30| 41 72 72 61 79 45 6c 65 | 6d 65 6e 74 7d 0d 09 0d |ArrayEle|ment}...|
|00000f40| 7b 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |{-------|--------|
|00000f50| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00000f60| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00000f70| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 7d 0d 0d 09 50 52 |--------|--}...PR|
|00000f80| 4f 43 45 44 55 52 45 20 | 47 65 74 52 65 63 41 6e |OCEDURE |GetRecAn|
|00000f90| 64 4d 61 6b 65 45 6c 65 | 6d 65 6e 74 28 74 68 65 |dMakeEle|ment(the|
|00000fa0| 53 79 6d 4f 62 6a 65 63 | 74 3a 48 61 6e 64 6c 65 |SymObjec|t:Handle|
|00000fb0| 29 3b 0d 09 0d 09 56 41 | 52 0d 09 09 70 6f 73 69 |);....VA|R...posi|
|00000fc0| 74 69 6f 6e 4d 61 74 63 | 68 20 3a 20 53 54 52 49 |tionMatc|h : STRI|
|00000fd0| 4e 47 3b 0d 09 09 72 65 | 63 48 61 6e 64 6c 65 20 |NG;...re|cHandle |
|00000fe0| 3a 20 48 61 6e 64 6c 65 | 3b 0d 09 09 0d 09 42 45 |: Handle|;.....BE|
|00000ff0| 47 49 4e 0d 09 09 52 65 | 63 48 61 6e 64 6c 65 20 |GIN...Re|cHandle |
|00001000| 3a 3d 20 47 65 74 52 65 | 63 6f 72 64 28 74 68 65 |:= GetRe|cord(the|
|00001010| 53 79 6d 4f 62 6a 65 63 | 74 2c 31 29 3b 0d 09 09 |SymObjec|t,1);...|
|00001020| 49 46 20 28 52 65 63 48 | 61 6e 64 6c 65 3c 3e 4e |IF (RecH|andle<>N|
|00001030| 49 4c 29 20 54 48 45 4e | 0d 09 09 42 45 47 49 4e |IL) THEN|...BEGIN|
|00001040| 0d 09 09 09 70 6f 73 69 | 74 69 6f 6e 4d 61 74 63 |....posi|tionMatc|
|00001050| 68 20 3a 3d 20 45 76 61 | 6c 53 74 72 28 74 68 65 |h := Eva|lStr(the|
|00001060| 53 79 6d 4f 62 6a 65 63 | 74 2c 28 27 4c 69 67 68 |SymObjec|t,('Ligh|
|00001070| 74 73 27 2e 27 50 6f 73 | 69 74 69 6f 6e 27 29 29 |ts'.'Pos|ition'))|
|00001080| 3b 0d 09 09 09 49 46 20 | 28 70 6f 73 69 74 69 6f |;....IF |(positio|
|00001090| 6e 4d 61 74 63 68 20 3d | 20 50 6f 73 69 74 69 6f |nMatch =| Positio|
|000010a0| 6e 53 74 72 29 20 54 48 | 45 4e 0d 09 09 09 09 4d |nStr) TH|EN.....M|
|000010b0| 61 6b 65 41 72 72 61 79 | 45 6c 65 6d 65 6e 74 28 |akeArray|Element(|
|000010c0| 74 68 65 53 79 6d 4f 62 | 6a 65 63 74 29 3b 0d 09 |theSymOb|ject);..|
|000010d0| 09 45 4e 44 3b 20 7b 49 | 46 20 28 52 65 63 48 61 |.END; {I|F (RecHa|
|000010e0| 6e 64 6c 65 3c 3e 4e 49 | 4c 29 7d 0d 09 45 4e 44 |ndle<>NI|L)}..END|
|000010f0| 3b 20 7b 50 52 4f 43 45 | 44 55 52 45 20 47 65 74 |; {PROCE|DURE Get|
|00001100| 52 65 63 41 6e 64 4d 61 | 6b 65 45 6c 65 6d 65 6e |RecAndMa|keElemen|
|00001110| 74 7d 0d 09 0d 7b 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |t}...{--|--------|
|00001120| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00001130| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00001140| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 7d |--------|-------}|
|00001150| 0d 0d 09 50 52 4f 43 45 | 44 55 52 45 20 50 72 6f |...PROCE|DURE Pro|
|00001160| 63 65 73 73 47 72 6f 75 | 70 28 67 72 70 48 61 6e |cessGrou|p(grpHan|
|00001170| 64 6c 65 3a 48 61 6e 64 | 6c 65 29 3b 0d 09 0d 09 |dle:Hand|le);....|
|00001180| 56 41 52 0d 09 09 67 72 | 70 4f 62 6a 65 63 74 20 |VAR...gr|pObject |
|00001190| 3a 20 48 61 6e 64 6c 65 | 3b 0d 09 0d 09 42 45 47 |: Handle|;....BEG|
|000011a0| 49 4e 0d 09 09 67 72 70 | 4f 62 6a 65 63 74 20 3a |IN...grp|Object :|
|000011b0| 3d 20 46 49 6e 47 72 6f | 75 70 28 67 72 70 48 61 |= FInGro|up(grpHa|
|000011c0| 6e 64 6c 65 29 3b 0d 09 | 09 57 48 49 4c 45 20 28 |ndle);..|.WHILE (|
|000011d0| 67 72 70 4f 62 6a 65 63 | 74 20 3c 3e 20 4e 49 4c |grpObjec|t <> NIL|
|000011e0| 29 20 44 4f 0d 09 09 42 | 45 47 49 4e 0d 09 09 09 |) DO...B|EGIN....|
|000011f0| 49 46 20 47 65 74 54 79 | 70 65 28 67 72 70 4f 62 |IF GetTy|pe(grpOb|
|00001200| 6a 65 63 74 29 20 3d 20 | 31 35 20 20 54 48 45 4e |ject) = |15  THEN|
|00001210| 0d 09 09 09 09 47 65 74 | 52 65 63 41 6e 64 4d 61 |.....Get|RecAndMa|
|00001220| 6b 65 45 6c 65 6d 65 6e | 74 28 67 72 70 4f 62 6a |keElemen|t(grpObj|
|00001230| 65 63 74 29 3b 0d 09 09 | 09 67 72 70 4f 62 6a 65 |ect);...|.grpObje|
|00001240| 63 74 20 3a 3d 20 4e 65 | 78 74 4f 62 6a 28 67 72 |ct := Ne|xtObj(gr|
|00001250| 70 4f 62 6a 65 63 74 29 | 3b 0d 09 09 45 4e 44 3b |pObject)|;...END;|
|00001260| 20 7b 57 48 49 4c 45 20 | 67 72 70 4f 62 6a 65 63 | {WHILE |grpObjec|
|00001270| 74 20 3c 3e 20 4e 49 4c | 7d 0d 09 45 4e 44 3b 20 |t <> NIL|}..END; |
|00001280| 7b 50 52 4f 43 45 44 55 | 52 45 20 50 72 6f 63 65 |{PROCEDU|RE Proce|
|00001290| 73 73 47 72 6f 75 70 7d | 0d 09 0d 7b 2d 2d 2d 2d |ssGroup}|...{----|
|000012a0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|000012b0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|000012c0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|000012d0| 2d 2d 2d 2d 2d 7d 0d 0d | 09 50 52 4f 43 45 44 55 |-----}..|.PROCEDU|
|000012e0| 52 45 20 46 69 6c 6c 41 | 72 72 61 79 28 70 6f 73 |RE FillA|rray(pos|
|000012f0| 69 74 69 6f 6e 4f 6b 3a | 62 6f 6f 6c 65 61 6e 29 |itionOk:|boolean)|
|00001300| 3b 0d 09 09 56 41 52 0d | 09 09 09 69 6e 64 65 78 |;...VAR.|...index|
|00001310| 3a 69 6e 74 65 67 65 72 | 3b 0d 09 09 09 52 65 61 |:integer|;....Rea|
|00001320| 6c 58 2c 52 65 61 6c 59 | 3a 52 45 41 4c 3b 0d 09 |lX,RealY|:REAL;..|
|00001330| 09 09 6f 6b 3a 62 6f 6f | 6c 65 61 6e 3b 0d 09 09 |..ok:boo|lean;...|
|00001340| 09 6d 65 73 73 61 67 65 | 4e 75 6d 3a 52 45 41 4c |.message|Num:REAL|
|00001350| 3b 0d 09 09 09 6d 65 73 | 73 61 67 65 53 74 72 3a |;....mes|sageStr:|
|00001360| 73 74 72 69 6e 67 3b 0d | 0d 09 42 45 47 49 4e 0d |string;.|..BEGIN.|
|00001370| 09 09 4e 75 6d 62 65 72 | 4f 66 4c 69 67 68 74 73 |..Number|OfLights|
|00001380| 20 3a 3d 20 30 3b 0d 7b | 20 09 09 43 68 65 63 6b | := 0;.{| ..Check|
|00001390| 46 6f 72 47 72 6f 75 70 | 73 3b 20 7d 0d 09 09 4f |ForGroup|s; }...O|
|000013a0| 62 6a 48 61 6e 64 6c 65 | 20 3a 3d 20 46 53 41 63 |bjHandle| := FSAc|
|000013b0| 74 4c 61 79 65 72 3b 0d | 09 09 57 48 49 4c 45 20 |tLayer;.|..WHILE |
|000013c0| 28 28 28 47 65 74 54 79 | 70 65 28 4f 62 6a 48 61 |(((GetTy|pe(ObjHa|
|000013d0| 6e 64 6c 65 29 3c 3e 31 | 35 29 20 41 4e 44 20 28 |ndle)<>1|5) AND (|
|000013e0| 47 65 74 54 79 70 65 28 | 4f 62 6a 48 61 6e 64 6c |GetType(|ObjHandl|
|000013f0| 65 29 3c 3e 31 31 29 29 | 20 41 4e 44 20 28 4f 62 |e)<>11))| AND (Ob|
|00001400| 6a 48 61 6e 64 6c 65 3c | 3e 4e 49 4c 29 20 41 4e |jHandle<|>NIL) AN|
|00001410| 44 20 28 47 65 74 52 65 | 63 6f 72 64 28 4f 62 6a |D (GetRe|cord(Obj|
|00001420| 48 61 6e 64 6c 65 2c 31 | 29 20 3d 20 4e 49 4c 29 |Handle,1|) = NIL)|
|00001430| 29 20 44 4f 0d 09 09 09 | 09 09 4f 62 6a 48 61 6e |) DO....|..ObjHan|
|00001440| 64 6c 65 20 3a 3d 20 4e | 65 78 74 53 4f 62 6a 28 |dle := N|extSObj(|
|00001450| 4f 62 6a 48 61 6e 64 6c | 65 29 3b 0d 0d 09 09 47 |ObjHandl|e);....G|
|00001460| 65 54 4f 62 6a 65 63 74 | 50 6f 73 69 74 69 6f 6e |eTObject|Position|
|00001470| 28 4f 62 6a 48 61 6e 64 | 6c 65 29 3b 0d 09 09 49 |(ObjHand|le);...I|
|00001480| 46 20 4f 62 6a 48 61 6e | 64 6c 65 3c 3e 4e 49 4c |F ObjHan|dle<>NIL|
|00001490| 20 54 48 45 4e 0d 09 09 | 42 45 47 49 4e 0d 09 09 | THEN...|BEGIN...|
|000014a0| 09 53 65 74 43 75 72 73 | 6f 72 28 57 61 74 63 68 |.SetCurs|or(Watch|
|000014b0| 43 29 3b 0d 09 09 09 70 | 6f 73 69 74 69 6f 6e 4f |C);....p|ositionO|
|000014c0| 6b 20 3a 3d 20 54 72 75 | 65 3b 0d 09 09 09 4c 61 |k := Tru|e;....La|
|000014d0| 79 65 72 48 61 6e 64 6c | 65 20 3a 3d 20 46 4c 61 |yerHandl|e := FLa|
|000014e0| 79 65 72 3b 0d 09 09 09 | 4f 62 6a 48 61 6e 64 6c |yer;....|ObjHandl|
|000014f0| 65 20 3a 3d 20 46 53 4f | 62 6a 65 63 74 28 4c 61 |e := FSO|bject(La|
|00001500| 79 65 72 48 61 6e 64 6c | 65 29 3b 0d 09 09 09 57 |yerHandl|e);....W|
|00001510| 48 49 4c 45 20 4c 61 79 | 65 72 48 61 6e 64 6c 65 |HILE Lay|erHandle|
|00001520| 3c 3e 4e 49 4c 20 44 4f | 0d 09 09 09 42 45 47 49 |<>NIL DO|....BEGI|
|00001530| 4e 0d 09 09 09 09 4f 62 | 6a 48 61 6e 64 6c 65 20 |N.....Ob|jHandle |
|00001540| 3a 3d 20 46 53 4f 62 6a | 65 63 74 28 4c 61 79 65 |:= FSObj|ect(Laye|
|00001550| 72 48 61 6e 64 6c 65 29 | 3b 0d 09 09 09 09 57 48 |rHandle)|;.....WH|
|00001560| 49 4c 45 20 4f 62 6a 48 | 61 6e 64 6c 65 3c 3e 4e |ILE ObjH|andle<>N|
|00001570| 49 4c 20 44 4f 0d 09 09 | 09 09 42 45 47 49 4e 0d |IL DO...|..BEGIN.|
|00001580| 09 09 09 09 09 49 46 20 | 47 65 74 54 79 70 65 28 |.....IF |GetType(|
|00001590| 4f 62 6a 48 61 6e 64 6c | 65 29 20 3d 20 31 35 20 |ObjHandl|e) = 15 |
|000015a0| 20 54 48 45 4e 0d 09 09 | 09 09 09 09 47 65 74 52 | THEN...|....GetR|
|000015b0| 65 63 41 6e 64 4d 61 6b | 65 45 6c 65 6d 65 6e 74 |ecAndMak|eElement|
|000015c0| 28 4f 62 6a 48 61 6e 64 | 6c 65 29 3b 0d 09 09 09 |(ObjHand|le);....|
|000015d0| 09 09 49 46 20 47 65 74 | 54 79 70 65 28 4f 62 6a |..IF Get|Type(Obj|
|000015e0| 48 61 6e 64 6c 65 29 20 | 3d 20 31 31 20 54 48 45 |Handle) |= 11 THE|
|000015f0| 4e 0d 09 09 09 09 09 09 | 50 72 6f 63 65 73 73 47 |N.......|ProcessG|
|00001600| 72 6f 75 70 28 4f 62 6a | 48 61 6e 64 6c 65 29 3b |roup(Obj|Handle);|
|00001610| 0d 09 09 09 09 09 4f 62 | 6a 48 61 6e 64 6c 65 20 |......Ob|jHandle |
|00001620| 3a 3d 20 4e 65 78 74 53 | 4f 62 6a 28 4f 62 6a 48 |:= NextS|Obj(ObjH|
|00001630| 61 6e 64 6c 65 29 3b 0d | 09 09 09 09 45 4e 44 3b |andle);.|....END;|
|00001640| 20 20 7b 57 48 49 4c 45 | 20 4f 62 6a 48 61 6e 64 |  {WHILE| ObjHand|
|00001650| 6c 65 3c 3e 4e 49 4c 7d | 0d 09 09 09 09 4c 61 79 |le<>NIL}|.....Lay|
|00001660| 65 72 48 61 6e 64 6c 65 | 20 3a 3d 20 4e 65 78 74 |erHandle| := Next|
|00001670| 4c 61 79 65 72 28 4c 61 | 79 65 72 48 61 6e 64 6c |Layer(La|yerHandl|
|00001680| 65 29 3b 0d 09 09 09 45 | 4e 44 3b 20 20 7b 57 48 |e);....E|ND;  {WH|
|00001690| 49 4c 45 20 4c 61 79 65 | 72 48 61 6e 64 6c 65 3c |ILE Laye|rHandle<|
|000016a0| 3e 4e 49 4c 7d 0d 09 09 | 45 4e 44 20 20 7b 49 46 |>NIL}...|END  {IF|
|000016b0| 20 4f 62 6a 48 61 6e 64 | 6c 65 3c 3e 4e 49 4c 7d | ObjHand|le<>NIL}|
|000016c0| 0d 09 09 45 4c 53 45 20 | 0d 09 09 09 70 6f 73 69 |...ELSE |....posi|
|000016d0| 74 69 6f 6e 4f 6b 20 3a | 3d 20 46 61 6c 73 65 3b |tionOk :|= False;|
|000016e0| 0d 09 45 4e 44 3b 20 7b | 50 52 4f 43 45 44 55 52 |..END; {|PROCEDUR|
|000016f0| 45 20 46 69 6c 6c 41 72 | 72 61 79 7d 0d 0d 7b 2d |E FillAr|ray}..{-|
|00001700| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00001710| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00001720| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00001730| 2d 2d 2d 2d 2d 2d 2d 2d | 7d 0d 09 50 52 4f 43 45 |--------|}..PROCE|
|00001740| 44 55 52 45 20 53 6f 72 | 74 41 72 72 61 79 3b 0d |DURE Sor|tArray;.|
|00001750| 09 09 56 41 52 0d 09 09 | 09 69 6e 64 65 78 31 3a |..VAR...|.index1:|
|00001760| 69 6e 74 65 67 65 72 3b | 0d 09 09 09 69 6e 64 65 |integer;|....inde|
|00001770| 78 32 3a 69 6e 74 65 67 | 65 72 3b 0d 09 09 09 6f |x2:integ|er;....o|
|00001780| 62 6a 65 63 74 48 6f 6c | 64 65 72 3a 48 61 6e 64 |bjectHol|der:Hand|
|00001790| 6c 65 3b 0d 09 09 09 78 | 48 6f 6c 64 65 72 3a 4c |le;....x|Holder:L|
|000017a0| 6f 6e 67 49 6e 74 3b 0d | 09 09 09 6e 6f 43 68 61 |ongInt;.|...noCha|
|000017b0| 6e 67 65 3a 62 6f 6f 6c | 65 61 6e 3b 0d 0d 09 42 |nge:bool|ean;...B|
|000017c0| 45 47 49 4e 0d 09 09 6e | 6f 43 68 61 6e 67 65 3a |EGIN...n|oChange:|
|000017d0| 3d 54 72 75 65 3b 0d 09 | 09 46 4f 52 20 69 6e 64 |=True;..|.FOR ind|
|000017e0| 65 78 31 3a 3d 31 20 74 | 6f 20 4e 75 6d 62 65 72 |ex1:=1 t|o Number|
|000017f0| 4f 66 4c 69 67 68 74 73 | 2d 31 20 44 4f 0d 09 09 |OfLights|-1 DO...|
|00001800| 42 45 47 49 4e 0d 09 09 | 09 46 4f 52 20 69 6e 64 |BEGIN...|.FOR ind|
|00001810| 65 78 32 3a 3d 69 6e 64 | 65 78 31 2b 31 20 74 6f |ex2:=ind|ex1+1 to|
|00001820| 20 4e 75 6d 62 65 72 4f | 66 4c 69 67 68 74 73 20 | NumberO|fLights |
|00001830| 44 4f 0d 09 09 09 42 45 | 47 49 4e 0d 09 09 09 09 |DO....BE|GIN.....|
|00001840| 49 46 20 58 41 72 72 61 | 79 5b 69 6e 64 65 78 31 |IF XArra|y[index1|
|00001850| 5d 3c 58 41 72 72 61 79 | 5b 69 6e 64 65 78 32 5d |]<XArray|[index2]|
|00001860| 20 54 48 45 4e 0d 09 09 | 09 09 42 45 47 49 4e 0d | THEN...|..BEGIN.|
|00001870| 09 09 09 09 09 6f 62 6a | 65 63 74 48 6f 6c 64 65 |.....obj|ectHolde|
|00001880| 72 3a 3d 48 61 6e 64 6c | 65 41 72 72 61 79 5b 69 |r:=Handl|eArray[i|
|00001890| 6e 64 65 78 32 5d 3b 0d | 09 09 09 09 09 78 48 6f |ndex2];.|.....xHo|
|000018a0| 6c 64 65 72 3a 3d 58 41 | 72 72 61 79 5b 69 6e 64 |lder:=XA|rray[ind|
|000018b0| 65 78 32 5d 3b 0d 09 09 | 09 09 09 48 61 6e 64 6c |ex2];...|...Handl|
|000018c0| 65 41 72 72 61 79 5b 69 | 6e 64 65 78 32 5d 3a 3d |eArray[i|ndex2]:=|
|000018d0| 48 61 6e 64 6c 65 41 72 | 72 61 79 5b 69 6e 64 65 |HandleAr|ray[inde|
|000018e0| 78 31 5d 3b 0d 09 09 09 | 09 09 58 41 72 72 61 79 |x1];....|..XArray|
|000018f0| 5b 69 6e 64 65 78 32 5d | 3a 3d 58 41 72 72 61 79 |[index2]|:=XArray|
|00001900| 5b 69 6e 64 65 78 31 5d | 3b 0d 09 09 09 09 09 48 |[index1]|;......H|
|00001910| 61 6e 64 6c 65 41 72 72 | 61 79 5b 69 6e 64 65 78 |andleArr|ay[index|
|00001920| 31 5d 3a 3d 6f 62 6a 65 | 63 74 48 6f 6c 64 65 72 |1]:=obje|ctHolder|
|00001930| 3b 0d 09 09 09 09 09 58 | 41 72 72 61 79 5b 69 6e |;......X|Array[in|
|00001940| 64 65 78 31 5d 3a 3d 78 | 48 6f 6c 64 65 72 3b 0d |dex1]:=x|Holder;.|
|00001950| 09 09 09 09 09 4e 6f 43 | 68 61 6e 67 65 3a 3d 46 |.....NoC|hange:=F|
|00001960| 61 6c 73 65 3b 0d 09 09 | 09 09 45 4e 44 3b 20 7b |alse;...|..END; {|
|00001970| 49 46 20 58 41 72 72 61 | 79 5b 69 6e 64 65 78 31 |IF XArra|y[index1|
|00001980| 5d 3e 58 41 72 72 61 79 | 5b 69 6e 64 65 78 32 5d |]>XArray|[index2]|
|00001990| 7d 0d 09 09 09 45 4e 44 | 3b 20 7b 46 4f 52 20 69 |}....END|; {FOR i|
|000019a0| 6e 64 65 78 32 3a 3d 69 | 6e 64 65 78 31 2b 31 20 |ndex2:=i|ndex1+1 |
|000019b0| 74 6f 20 4e 75 6d 62 65 | 72 4f 66 4c 69 67 68 74 |to Numbe|rOfLight|
|000019c0| 73 7d 0d 09 09 45 4e 44 | 3b 20 7b 46 4f 52 20 69 |s}...END|; {FOR i|
|000019d0| 6e 64 65 78 31 3a 3d 31 | 20 74 6f 20 4e 75 6d 62 |ndex1:=1| to Numb|
|000019e0| 65 72 4f 66 4c 69 67 68 | 74 73 2d 31 7d 0d 09 45 |erOfLigh|ts-1}..E|
|000019f0| 4e 44 3b 20 7b 50 52 4f | 43 45 44 55 52 45 20 53 |ND; {PRO|CEDURE S|
|00001a00| 6f 72 74 41 72 72 61 79 | 7d 0d 7b 2d 2d 2d 2d 2d |ortArray|}.{-----|
|00001a10| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00001a20| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00001a30| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00001a40| 2d 2d 2d 2d 7d 0d 0d 09 | 46 55 4e 43 54 49 4f 4e |----}...|FUNCTION|
|00001a50| 20 47 65 74 43 79 63 55 | 6e 69 74 4e 75 6d 62 65 | GetCycU|nitNumbe|
|00001a60| 72 28 74 68 65 55 6e 69 | 74 4e 75 6d 62 65 72 2c |r(theUni|tNumber,|
|00001a70| 74 68 65 46 72 61 63 74 | 69 6f 6e 3a 52 45 41 4c |theFract|ion:REAL|
|00001a80| 29 20 3a 20 53 54 52 49 | 4e 47 3b 0d 09 0d 09 56 |) : STRI|NG;....V|
|00001a90| 41 52 0d 09 09 75 6e 69 | 74 53 74 72 3a 53 74 72 |AR...uni|tStr:Str|
|00001aa0| 69 6e 67 3b 0d 09 09 75 | 6e 69 74 46 72 61 63 3a |ing;...u|nitFrac:|
|00001ab0| 53 74 72 69 6e 67 3b 0d | 09 09 66 72 61 63 48 6f |String;.|..fracHo|
|00001ac0| 6c 64 65 72 3a 52 45 41 | 4c 3b 0d 09 09 0d 09 42 |lder:REA|L;.....B|
|00001ad0| 45 47 49 4e 0d 09 09 75 | 6e 69 74 53 74 72 20 3a |EGIN...u|nitStr :|
|00001ae0| 3d 20 43 48 52 28 74 68 | 65 55 6e 69 74 4e 75 6d |= CHR(th|eUnitNum|
|00001af0| 62 65 72 20 2b 20 36 34 | 29 3b 0d 09 09 66 72 61 |ber + 64|);...fra|
|00001b00| 63 48 6f 6c 64 65 72 20 | 3a 3d 20 74 68 65 46 72 |cHolder |:= theFr|
|00001b10| 61 63 74 69 6f 6e 20 2a | 20 31 30 3b 0d 09 09 75 |action *| 10;...u|
|00001b20| 6e 69 74 46 72 61 63 20 | 3a 3d 20 4e 75 6d 32 53 |nitFrac |:= Num2S|
|00001b30| 74 72 28 30 2c 66 72 61 | 63 48 6f 6c 64 65 72 29 |tr(0,fra|cHolder)|
|00001b40| 3b 0d 09 09 47 65 74 43 | 79 63 55 6e 69 74 4e 75 |;...GetC|ycUnitNu|
|00001b50| 6d 62 65 72 20 3a 3d 20 | 63 6f 6e 63 61 74 28 75 |mber := |concat(u|
|00001b60| 6e 69 74 53 74 72 2c 75 | 6e 69 74 46 72 61 63 29 |nitStr,u|nitFrac)|
|00001b70| 3b 09 0d 09 45 4e 44 3b | 20 20 7b 46 55 4e 43 54 |;...END;|  {FUNCT|
|00001b80| 49 4f 4e 20 47 65 74 43 | 79 63 55 6e 69 74 4e 75 |ION GetC|ycUnitNu|
|00001b90| 6d 62 65 72 7d 0d 09 0d | 7b 2d 2d 2d 2d 2d 2d 2d |mber}...|{-------|
|00001ba0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00001bb0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00001bc0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00001bd0| 2d 2d 7d 0d 0d 09 50 52 | 4f 43 45 44 55 52 45 20 |--}...PR|OCEDURE |
|00001be0| 41 73 73 69 67 6e 50 6f | 73 69 74 69 6f 6e 56 61 |AssignPo|sitionVa|
|00001bf0| 6c 75 65 73 3b 0d 09 09 | 56 41 52 0d 09 09 09 69 |lues;...|VAR....i|
|00001c00| 6e 64 65 78 3a 69 6e 74 | 65 67 65 72 3b 0d 09 09 |ndex:int|eger;...|
|00001c10| 09 69 73 53 74 72 69 70 | 3a 69 6e 74 65 67 65 72 |.isStrip|:integer|
|00001c20| 3b 0d 09 09 09 72 65 61 | 6c 49 6e 64 65 78 3a 52 |;....rea|lIndex:R|
|00001c30| 45 41 4c 3b 0d 09 09 09 | 66 72 61 63 74 69 6f 6e |EAL;....|fraction|
|00001c40| 3a 52 45 41 4c 3b 0d 09 | 09 09 73 74 72 69 6e 67 |:REAL;..|..string|
|00001c50| 48 6f 6c 64 65 72 3a 73 | 74 72 69 6e 67 3b 0d 09 |Holder:s|tring;..|
|00001c60| 09 09 68 61 6e 64 6c 65 | 48 6f 6c 64 65 72 3a 48 |..handle|Holder:H|
|00001c70| 61 6e 64 6c 65 3b 0d 09 | 09 09 6b 65 79 54 68 69 |andle;..|..keyThi|
|00001c80| 6e 67 3a 69 6e 74 65 67 | 65 72 3b 0d 09 09 09 74 |ng:integ|er;....t|
|00001c90| 68 69 6e 67 3a 62 6f 6f | 6c 65 61 6e 3b 0d 09 09 |hing:boo|lean;...|
|00001ca0| 09 73 74 72 69 70 4e 75 | 6d 62 65 72 3a 52 45 41 |.stripNu|mber:REA|
|00001cb0| 4c 3b 0d 09 09 09 63 65 | 6c 6c 43 6f 75 6e 74 3a |L;....ce|llCount:|
|00001cc0| 69 6e 74 65 67 65 72 3b | 0d 0d 09 42 45 47 49 4e |integer;|...BEGIN|
|00001cd0| 0d 09 09 66 72 61 63 74 | 69 6f 6e 3a 3d 30 3b 0d |...fract|ion:=0;.|
|00001ce0| 09 09 73 74 72 69 70 4e | 75 6d 62 65 72 3a 3d 31 |..stripN|umber:=1|
|00001cf0| 3b 0d 09 09 63 65 6c 6c | 43 6f 75 6e 74 20 3a 3d |;...cell|Count :=|
|00001d00| 20 30 3b 0d 09 09 49 46 | 20 55 6e 69 74 4e 75 6d | 0;...IF| UnitNum|
|00001d10| 62 65 72 20 3c 3e 20 30 | 20 54 48 45 4e 0d 09 09 |ber <> 0| THEN...|
|00001d20| 42 45 47 49 4e 0d 09 09 | 09 55 6e 69 74 4e 75 6d |BEGIN...|.UnitNum|
|00001d30| 62 65 72 3a 3d 55 6e 69 | 74 4e 75 6d 62 65 72 2d |ber:=Uni|tNumber-|
|00001d40| 31 3b 0d 09 09 09 66 72 | 61 63 74 69 6f 6e 3a 3d |1;....fr|action:=|
|00001d50| 30 2e 34 3b 0d 09 09 09 | 46 4f 52 20 69 6e 64 65 |0.4;....|FOR inde|
|00001d60| 78 3a 3d 31 20 74 6f 20 | 4e 75 6d 62 65 72 4f 66 |x:=1 to |NumberOf|
|00001d70| 4c 69 67 68 74 73 20 44 | 4f 0d 09 09 09 42 45 47 |Lights D|O....BEG|
|00001d80| 49 4e 0d 09 09 09 09 49 | 46 20 69 6e 64 65 78 3d |IN.....I|F index=|
|00001d90| 31 20 20 54 48 45 4e 0d | 09 09 09 09 09 48 43 65 |1  THEN.|.....HCe|
|00001da0| 6e 74 65 72 28 48 61 6e | 64 6c 65 41 72 72 61 79 |nter(Han|dleArray|
|00001db0| 5b 69 6e 64 65 78 5d 2c | 20 58 31 2c 59 31 29 3b |[index],| X1,Y1);|
|00001dc0| 0d 09 09 09 09 49 46 20 | 69 6e 64 65 78 3d 4e 75 |.....IF |index=Nu|
|00001dd0| 6d 62 65 72 4f 66 4c 69 | 67 68 74 73 20 20 54 48 |mberOfLi|ghts  TH|
|00001de0| 45 4e 0d 09 09 09 09 09 | 48 43 65 6e 74 65 72 28 |EN......|HCenter(|
|00001df0| 48 61 6e 64 6c 65 41 72 | 72 61 79 5b 69 6e 64 65 |HandleAr|ray[inde|
|00001e00| 78 5d 2c 20 58 32 2c 59 | 32 29 3b 0d 0d 09 09 09 |x], X2,Y|2);.....|
|00001e10| 09 4f 62 6a 48 61 6e 64 | 6c 65 3a 3d 48 61 6e 64 |.ObjHand|le:=Hand|
|00001e20| 6c 65 41 72 72 61 79 5b | 69 6e 64 65 78 5d 3b 0d |leArray[|index];.|
|00001e30| 09 09 09 09 73 74 72 69 | 6e 67 48 6f 6c 64 65 72 |....stri|ngHolder|
|00001e40| 3a 3d 47 65 74 53 79 6d | 4e 61 6d 65 28 4f 62 6a |:=GetSym|Name(Obj|
|00001e50| 48 61 6e 64 6c 65 29 3b | 0d 09 09 09 09 55 70 72 |Handle);|.....Upr|
|00001e60| 53 74 72 69 6e 67 28 73 | 74 72 69 6e 67 48 6f 6c |String(s|tringHol|
|00001e70| 64 65 72 29 3b 0d 09 09 | 09 09 69 73 53 74 72 69 |der);...|..isStri|
|00001e80| 70 3a 3d 50 6f 73 28 27 | 43 59 43 27 2c 20 73 74 |p:=Pos('|CYC', st|
|00001e90| 72 69 6e 67 48 6f 6c 64 | 65 72 29 3b 0d 09 09 09 |ringHold|er);....|
|00001ea0| 09 49 46 20 69 73 53 74 | 72 69 70 3d 30 20 54 48 |.IF isSt|rip=0 TH|
|00001eb0| 45 4e 0d 09 09 09 09 09 | 69 73 53 74 72 69 70 3a |EN......|isStrip:|
|00001ec0| 3d 50 6f 73 28 27 53 54 | 52 49 50 27 2c 20 73 74 |=Pos('ST|RIP', st|
|00001ed0| 72 69 6e 67 48 6f 6c 64 | 65 72 29 3b 0d 0d 09 09 |ringHold|er);....|
|00001ee0| 09 09 49 46 20 69 73 53 | 74 72 69 70 3e 30 20 54 |..IF isS|trip>0 T|
|00001ef0| 48 45 4e 0d 09 09 09 09 | 42 45 47 49 4e 0d 09 09 |HEN.....|BEGIN...|
|00001f00| 09 09 09 63 65 6c 6c 43 | 6f 75 6e 74 20 3a 3d 20 |...cellC|ount := |
|00001f10| 63 65 6c 6c 43 6f 75 6e | 74 20 2b 20 31 3b 0d 09 |cellCoun|t + 1;..|
|00001f20| 09 09 09 09 49 46 20 63 | 65 6c 6c 43 6f 75 6e 74 |....IF c|ellCount|
|00001f30| 20 3e 20 34 20 54 48 45 | 4e 0d 09 09 09 09 09 42 | > 4 THE|N......B|
|00001f40| 45 47 49 4e 0d 09 09 09 | 09 09 09 73 74 72 69 70 |EGIN....|...strip|
|00001f50| 4e 75 6d 62 65 72 3a 3d | 73 74 72 69 70 4e 75 6d |Number:=|stripNum|
|00001f60| 62 65 72 20 2b 20 31 3b | 0d 09 09 09 09 09 09 63 |ber + 1;|.......c|
|00001f70| 65 6c 6c 43 6f 75 6e 74 | 20 3a 3d 20 31 3b 0d 09 |ellCount| := 1;..|
|00001f80| 09 09 09 09 45 4e 44 3b | 0d 20 20 20 20 20 0d 20 |....END;|.     . |
|00001f90| 20 20 20 20 09 09 09 09 | 09 66 72 61 63 74 69 6f |    ....|.fractio|
|00001fa0| 6e 20 3a 3d 20 63 65 6c | 6c 43 6f 75 6e 74 20 2a |n := cel|lCount *|
|00001fb0| 20 2e 31 3b 0d 0d 09 09 | 09 09 09 49 46 20 50 6f | .1;....|...IF Po|
|00001fc0| 73 28 27 20 54 52 27 2c | 73 74 72 69 6e 67 48 6f |s(' TR',|stringHo|
|00001fd0| 6c 64 65 72 29 20 3e 20 | 30 20 54 48 45 4e 0d 09 |lder) > |0 THEN..|
|00001fe0| 09 09 09 09 09 66 72 61 | 63 74 69 6f 6e 20 3a 3d |.....fra|ction :=|
|00001ff0| 20 30 2e 31 0d 09 09 09 | 09 09 45 4c 53 45 20 49 | 0.1....|..ELSE I|
|00002000| 46 20 50 6f 73 28 27 20 | 54 4c 27 2c 73 74 72 69 |F Pos(' |TL',stri|
|00002010| 6e 67 48 6f 6c 64 65 72 | 29 20 3e 20 30 20 54 48 |ngHolder|) > 0 TH|
|00002020| 45 4e 0d 09 09 09 09 09 | 09 66 72 61 63 74 69 6f |EN......|.fractio|
|00002030| 6e 20 3a 3d 20 30 2e 32 | 0d 09 09 09 09 09 45 4c |n := 0.2|......EL|
|00002040| 53 45 20 49 46 20 50 6f | 73 28 27 20 42 52 27 2c |SE IF Po|s(' BR',|
|00002050| 73 74 72 69 6e 67 48 6f | 6c 64 65 72 29 20 3e 20 |stringHo|lder) > |
|00002060| 30 20 54 48 45 4e 0d 09 | 09 09 09 09 09 66 72 61 |0 THEN..|.....fra|
|00002070| 63 74 69 6f 6e 20 3a 3d | 20 30 2e 33 0d 09 09 09 |ction :=| 0.3....|
|00002080| 09 09 45 4c 53 45 20 49 | 46 20 50 6f 73 28 27 20 |..ELSE I|F Pos(' |
|00002090| 42 4c 27 2c 73 74 72 69 | 6e 67 48 6f 6c 64 65 72 |BL',stri|ngHolder|
|000020a0| 29 20 3e 20 30 20 54 48 | 45 4e 0d 09 09 09 09 09 |) > 0 TH|EN......|
|000020b0| 09 66 72 61 63 74 69 6f | 6e 20 3a 3d 20 30 2e 34 |.fractio|n := 0.4|
|000020c0| 3b 0d 09 09 09 09 09 09 | 0d 09 09 09 09 09 73 74 |;.......|......st|
|000020d0| 72 69 6e 67 48 6f 6c 64 | 65 72 20 3a 3d 20 47 65 |ringHold|er := Ge|
|000020e0| 74 43 79 63 55 6e 69 74 | 4e 75 6d 62 65 72 28 73 |tCycUnit|Number(s|
|000020f0| 74 72 69 70 4e 75 6d 62 | 65 72 2c 66 72 61 63 74 |tripNumb|er,fract|
|00002100| 69 6f 6e 29 3b 0d 09 09 | 09 09 09 0d 09 09 09 09 |ion);...|........|
|00002110| 45 4e 44 20 7b 49 46 20 | 69 73 53 74 72 69 70 3e |END {IF |isStrip>|
|00002120| 30 7d 0d 09 09 09 09 45 | 4c 53 45 0d 09 09 09 09 |0}.....E|LSE.....|
|00002130| 42 45 47 49 4e 0d 09 09 | 09 09 09 55 6e 69 74 4e |BEGIN...|...UnitN|
|00002140| 75 6d 62 65 72 3a 3d 55 | 6e 69 74 4e 75 6d 62 65 |umber:=U|nitNumbe|
|00002150| 72 2b 31 3b 0d 09 09 09 | 09 09 73 74 72 69 6e 67 |r+1;....|..string|
|00002160| 48 6f 6c 64 65 72 3a 3d | 4e 75 6d 32 53 74 72 28 |Holder:=|Num2Str(|
|00002170| 30 2c 55 6e 69 74 4e 75 | 6d 62 65 72 29 3b 0d 09 |0,UnitNu|mber);..|
|00002180| 09 09 09 45 4e 44 3b 0d | 09 09 09 09 53 65 74 52 |...END;.|....SetR|
|00002190| 46 69 65 6c 64 28 48 61 | 6e 64 6c 65 41 72 72 61 |Field(Ha|ndleArra|
|000021a0| 79 5b 69 6e 64 65 78 5d | 2c 27 4c 69 67 68 74 73 |y[index]|,'Lights|
|000021b0| 27 2c 27 55 6e 69 74 20 | 23 27 2c 73 74 72 69 6e |','Unit |#',strin|
|000021c0| 67 48 6f 6c 64 65 72 29 | 3b 0d 0d 09 09 09 45 4e |gHolder)|;.....EN|
|000021d0| 44 3b 20 7b 46 4f 52 20 | 69 6e 64 65 78 3a 3d 31 |D; {FOR |index:=1|
|000021e0| 20 74 6f 20 4e 75 6d 62 | 65 72 4f 66 4c 69 67 68 | to Numb|erOfLigh|
|000021f0| 74 73 7d 0d 09 09 45 4e | 44 3b 0d 09 45 4e 44 3b |ts}...EN|D;..END;|
|00002200| 20 7b 50 52 4f 43 45 44 | 55 52 45 20 41 73 73 69 | {PROCED|URE Assi|
|00002210| 67 6e 50 6f 73 69 74 69 | 6f 6e 56 61 6c 75 65 73 |gnPositi|onValues|
|00002220| 7d 0d 09 0d 7b 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |}...{---|--------|
|00002230| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00002240| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00002250| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 7d 0d |--------|------}.|
|00002260| 0d 42 45 47 49 4e 0d 09 | 4d 65 73 73 61 67 65 28 |.BEGIN..|Message(|
|00002270| 27 46 49 4e 44 49 4e 47 | 20 4c 49 47 48 54 53 27 |'FINDING| LIGHTS'|
|00002280| 29 3b 0d 09 46 69 6c 6c | 41 72 72 61 79 28 4f 6b |);..Fill|Array(Ok|
|00002290| 29 3b 0d 09 49 46 20 4f | 6b 20 54 48 45 4e 0d 09 |);..IF O|k THEN..|
|000022a0| 42 45 47 49 4e 0d 09 09 | 4d 65 73 73 61 67 65 28 |BEGIN...|Message(|
|000022b0| 27 53 4f 52 54 49 4e 47 | 20 4c 49 47 48 54 53 27 |'SORTING| LIGHTS'|
|000022c0| 29 3b 0d 09 09 53 6f 72 | 74 41 72 72 61 79 3b 0d |);...Sor|tArray;.|
|000022d0| 09 09 4d 65 73 73 61 67 | 65 28 27 41 53 53 49 47 |..Messag|e('ASSIG|
|000022e0| 4e 49 4e 47 20 4e 55 4d | 42 45 52 53 27 29 3b 0d |NING NUM|BERS');.|
|000022f0| 09 09 41 73 73 69 67 6e | 50 6f 73 69 74 69 6f 6e |..Assign|Position|
|00002300| 56 61 6c 75 65 73 3b 0d | 09 45 4e 44 3b 0d 09 43 |Values;.|.END;..C|
|00002310| 6c 72 4d 65 73 73 61 67 | 65 3b 0d 0d 09 52 65 64 |lrMessag|e;...Red|
|00002320| 72 61 77 3b 0d 09 53 65 | 74 43 75 72 73 6f 72 28 |raw;..Se|tCursor(|
|00002330| 41 72 72 6f 77 43 29 3b | 0d 09 53 79 73 42 65 65 |ArrowC);|..SysBee|
|00002340| 70 3b 0d 45 4e 44 3b 20 | 7b 50 52 4f 43 45 44 55 |p;.END; |{PROCEDU|
|00002350| 52 45 20 4e 75 6d 62 65 | 72 33 43 69 72 53 74 72 |RE Numbe|r3CirStr|
|00002360| 69 70 73 3b 7d 0d 52 75 | 6e 28 4e 75 6d 62 65 72 |ips;}.Ru|n(Number|
|00002370| 34 43 69 72 53 74 72 69 | 70 73 29 3b 0d          |4CirStri|ps);.   |
+--------+-------------------------+-------------------------+--------+--------+